MacFormat 1995 July/macformat-026.iso/mac/Interactive Arts/Interactive Arts '95/martin/00142.ls

Text File | 1995-05-02 | 517 b | 27 lines

on startMovie
  global WhereWeAre, TheStory
  when mouseDown then nothing
  when mouseUp then nothing
end

on DoStoryTell
  global WhereWeAre, TheStory
  set WhereWeAre to the frame
  if WhereWeAre < 40 then
    set TheStory to "Story1"
  end if
  if (WhereWeAre > 40) and (WhereWeAre < 70) then
    set TheStory to "Story2"
  end if
  if (WhereWeAre > 70) and (WhereWeAre < 100) then
    set TheStory to "Story3"
  end if
  if WhereWeAre > 100 then
    set TheStory to "Story4"
  end if
end

on idle
  nothing()
end